10 PRINT"[147]CONTEXT INDEX64     JIM BUTTERFIELD"
30 J=40:D=3:INPUT"PRINTER";P$:IFP$="Y"ORP$="YES"THEND=4:J=80
40 J=(J-4)/2:POKE830,40-J:POKE831,40+J:OPEN2,D
100 INPUT "NAME OF WORD PROC FILE";F$:OPEN1,8,3,F$
130 INPUT"GLOBAL";P$:PRINT"ENTER KEYWORDS:":SYS2521
140 CLOSE1:IFPEEK(834)<>122ORPEEK(835)<>14ORPEEK(836)<>24ORPEEK(837)<>58GOTO250
160 J=838:F$=""
170 D=PEEK(J):IFD=31ORJ=858GOTO210
180 IFD<96ANDD>63THEND=128ORD
190 IFD<32THEND=64ORD
200 F$=F$+CHR$(D):D=FRE(0):J=J+1:GOTO170
210 PRINT"<";F$;">":IFP$<>"Y"ANDP$<>"YES"GOTO250
240 OPEN1,8,3,F$:SYS2609:GOTO140
250 CLOSE2:END